From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Fri, 28 Aug 2009 10:16:03 +0000 (+0000)
Subject: (print_object): Set escapeflag to 1 when printing
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10831
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=847f88584e0e32dab82f1808e095c7cb3d99d906;p=emacs.git

(print_object): Set escapeflag to 1 when printing
hashtable keys and values.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e33706d84c2..d60ffeb5f62 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-28  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* print.c (print_object): Set escapeflag to 1 when printing
+	hashtable keys and values.
+
 2009-08-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* lread.c (read_integer): Use doubles (and potentially return a float
diff --git a/src/print.c b/src/print.c
index 4a990f1cabb..7f526243346 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2100,9 +2100,9 @@ print_object (obj, printcharfun, escapeflag)
 	    if (!NILP (HASH_HASH (h, i)))
 	      {
 		if (i) PRINTCHAR (' ');
-		print_object (HASH_KEY (h, i), printcharfun, 0);
+		print_object (HASH_KEY (h, i), printcharfun, 1);
 		PRINTCHAR (' ');
-		print_object (HASH_VALUE (h, i), printcharfun, 0);
+		print_object (HASH_VALUE (h, i), printcharfun, 1);
 	      }
 
 	  if (size < real_size)